home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 27 / Mac Magazin and MacEasy Magazine CD - Issue 27.iso / Grafik & Text / SGMLTool Folder / TEXTBOOK.MPM < prev    next >
Text File  |  1996-10-21  |  9KB  |  185 lines
  1. !
  2. ! Mapping to PageMaker6.0
  3. !
  4. !  Document Type is TEXTBOOK.DTD
  5. !
  6. ! ver.1.2 (c)1996 KISI
  7. !
  8. ! This map-info assumes the kind of font and size.
  9. ! Set the value of $x???font and $x???size if you use another font and size.
  10. !   ex. $xtitlefont = 'Chicago' ;  $xtitlesize = 20 ;
  11. ! 
  12. ! This map-info assumes the format of graphic data is the PICT.
  13. ! Set the value of $xgraphic if you use another format.
  14. !   ex. $xgraphic = 'ps' ;
  15. ! 
  16. ! Set a access path to the folder which have graphic data.
  17. !   ex. $xpath = 'MyDisk:MyFolder:' ;
  18. !
  19. ! The graphic data is imported automatically.
  20. ! The size of the graphic data should be adjusted on the situation.
  21. !
  22. ! ----- STYLE -----
  23. !
  24. (TEXTBOOK
  25. ! Edit the following if another path and extension exist.
  26. ~    $xpath = 'MyDisk:Doc:GraphicPIC:' ;  $xgraphic = 'pict' ;
  27. !
  28. ! Edit the following if you want another layout.
  29. ~    $xtitlefont = 'Helvetica' ;  $xtitlesize = 18 ;
  30. ~    $xauthorfont = 'Helvetica' ;  $xauthorsize = 12 ;
  31. ~    $xdatefont = 'Helvetica' ;  $xdatesize = 12 ;
  32. ~    $xhead1font = 'Helvetica' ;  $xhead1size = 16 ;
  33. ~    $xhead2font = 'Helvetica' ;  $xhead2size = 14 ;
  34. ~    $xpfont = 'Palatino' ;  $xpsize = 12 ;
  35. ~    $xfigfont = 'Times' ;  $xfigsize = 12 ;
  36. ~    $xfnfont = 'Palatino' ;  $xfnsize = 12 ;
  37. ~    $xartworkfont = '' ;  $xartworksize = 12 ;
  38. ~    $xitemfont = 'Palatino' ;  $xitemsize = 12 ;
  39. ~    $xfig = 'Fig.' ;
  40. ~    $xdt = '*' ;
  41. !
  42. ! for Japanese, Replace the following with above script.
  43. !    $xtitlefont = 'íÜÉSÉVÉbÉNëÃ' ;  $xtitlesize = 18 ;
  44. !    $xauthorfont = 'íÜÉSÉVÉbÉNëÃ' ;  $xauthorsize = 12 ;
  45. !    $xdatefont = 'íÜÉSÉVÉbÉNëÃ' ;  $xdatesize = 12 ;
  46. !    $xhead1font = 'íÜÉSÉVÉbÉNëÃ' ;  $xhead1size = 16 ;
  47. !    $xhead2font = 'íÜÉSÉVÉbÉNëÃ' ;  $xhead2size = 14 ;
  48. !    $xpfont = 'ç◊ñæí©ëÃ' ;  $xpsize = 12 ;
  49. !    $xfigfont = 'íÜÉSÉVÉbÉNëÃ' ;  $xfigsize = 12 ;
  50. !    $xfnfont = 'ç◊ñæí©ëÃ' ;  $xfnsize = 12 ;
  51. !    $xartworkfont = '' ;  $xartworksize = 12 ;
  52. !    $xitemfont = 'ç◊ñæí©ëÃ' ;  $xitemsize = 12 ;
  53. !    $xfig = 'ê}' ;
  54. !    $xdt = 'Åú' ;
  55. !
  56. ! for Escape Character
  57. ~    &DefineEscape('<', '<\<>') ;
  58. ~    &Escape(1) ;
  59. !
  60. ! for Deletion of Return-code(s) in Contents
  61. ~    &DeleteCr(1) ;
  62. !
  63. ! for Heading Number Control
  64. ~    &Begin('H1') ;
  65. !
  66. ! Style tag
  67.     <PMTags1.0 mac>
  68.     <@title=<FONT "~$xtitlefont~"><SIZE ~$xtitlesize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xtitlesize~><G+AFTER ~$xtitlesize~><GALIGNMENT "center"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  69.     <@author=<FONT "~$xauthorfont~"><SIZE ~$xauthorsize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xauthorsize~><G+AFTER ~$xauthorsize~><GALIGNMENT "center"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  70.     <@date=<FONT "~$xdatefont~"><SIZE ~$xdatesize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xdatesize~><G+AFTER ~$xdatesize~><GALIGNMENT "center"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  71.     <@p=<FONT "~$xpfont~"><SIZE ~$xpsize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST ~$xpsize~><G+BEFORE 0><G+AFTER 0><GALIGNMENT "justify"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  72.     <@head1=<FONT "~$xhead1font~"><SIZE ~$xhead1size~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GCONTENTS><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xhead1size~><G+AFTER ~$xhead1size~><GALIGNMENT "left"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  73.     <@head2=<FONT "~$xhead2font~"><SIZE ~$xhead2size~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GCONTENTS><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xhead2size~><G+AFTER ~$xhead2size~><GALIGNMENT "left"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  74.     <@artwork=<FONT "~$xartworkfont~"><SIZE ~$xartworksize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE 0><G+AFTER 0><GALIGNMENT "center"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 36 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  75.     <@fig=<FONT "~$xfigfont~"><SIZE ~$xfigsize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE ~$xfigsize~><G+AFTER ~$xfigsize~><GALIGNMENT "center"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 34 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  76.     <@fn=<FONT "~$xfnfont~"><SIZE ~$xfnsize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT ~$xfnsize~><GRIGHT 0><GFIRST -~$xfnsize~><G+BEFORE 0><G+AFTER 0><GALIGNMENT "justify"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 34 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  77.     <@item=<FONT "~$xitemfont~"><SIZE ~$xitemsize~><HORIZONTAL 100><LETTERSPACE 0><CTRACK 127><CSSIZE 70><C+SIZE 58.3><C-POSITION 33.3><C+POSITION 33.3><P><CBASELINE 0><CNOBREAK 0><CLEADING -0.05><GGRID 0><GLEFT 0><GRIGHT 0><GFIRST 0><G+BEFORE 0><G+AFTER 0><GALIGNMENT "justify"><GMETHOD "proportional"><G& "ENGLISH"><GPAIRS 4><G% 150><GKNEXT 0><GKWIDOW 0><GKORPHAN 0><GTABS $><GHYPHENATION 2 34 0><GWORDSPACE 75 100 150><GSPACE -5 0 25>>
  78. )TEXTBOOK
  79. ~    &End('H1') ;
  80. !
  81. ! ----- FRONT -----
  82. !
  83. (TLINE
  84.     \n<@title:><\<>title>
  85. (SUBTITLE
  86.     \n<@head1:><\<>head1>
  87. (AUTHOR
  88.     \n<@author:><\<>author>
  89. (DATE
  90.     \n<@date:><\<>date>
  91. !
  92. ! ----- FIGURE -----
  93. !
  94. (FIG
  95. ~    $xfigid = &Refer('FIG','ID') ;
  96. (ARTWORK
  97. ~    $xgrfile = &Convert('~$xpath~~FILE~.~$xgraphic~') ;
  98. ~    ($xwidth, $xheight) = &GraphicSize($xgrfile, $xgraphic) ;
  99.     \n<@artwork:><\<>artwork><&~$xwidth~ ~$xheight~ 0 "~$xpath~~FILE~.~$xgraphic~">
  100. (FIGCAP
  101.     \n<@fig:><\<>fig>~$xfig~~$xfigid~ 
  102. (FIGREF
  103.     ~$xfig~~#FIG_REFID~
  104. !
  105. ! ----- FOOTNOTE -----
  106. !
  107. (FN
  108.     \n<@fn:><\<>fn><+>(~#FN_ID~)<p>
  109. (FNREF
  110.     <+>(~#FN_REFID~)<p>
  111. !
  112. ! ----- HEADING -----
  113. !
  114. (H1
  115. ~    &Begin('H2') ;
  116. ~    $xh1num = &Value('NUMBER') ;
  117. ~    if ($xh1num eq '') { &Count('H1') ; $xh1num = &Number('H1') ; }
  118. )H1
  119. ~    &End('H2') ;
  120. (H1T
  121.     \n<@head1:><\<>head1>~$xh1num~ 
  122. (H2
  123. ~    &Begin('H3') ;
  124. ~    $xh2num = &Value('NUMBER') ;
  125. ~    if ($xh2num eq '') { &Count('H2') ; $xh2num = &Number('H1').'.'.&Number('H2') ; }
  126. )H2
  127. ~    &End('H3') ;
  128. (H2T
  129.     \n<@head2:><\<>head2>~$xh2num~ 
  130. (H3
  131. ~    &Begin('H4') ;
  132. ~    $xh3num = &Value('NUMBER') ;
  133. ~    if ($xh3num eq '') { &Count('H3') ; $xh3num = &Number('H1').'.'.&Number('H2').'.'.&Number
  134. )H3
  135. ~    &End('H4') ;
  136. (H3T
  137.     \n<@head3:><\<>head3>~$xh3num~ 
  138. !
  139. ! ----- PARAGRAPH -----
  140. !
  141. (P
  142.     \n<@p:><\<>p>
  143. !
  144. ! ----- LISTING -----
  145. !
  146. (LI
  147. ~    &Begin('LI') ;
  148. (IT
  149. ~    &Count('LI') ;
  150. ~    $xlitem = &Number('LI') ;
  151. ~    $xllevel = &Level('LI') ;
  152. ~    $xlleft = $xitemsize*$xllevel*2 ;
  153. ~    $xlfirst = $xitemsize*$xllevel ;
  154. ~    if ($xllevel == 1) { $xlp = '(' ; $xrp = ')' ; }
  155. ~    if ($xllevel >= 2) { $xlp = '' ;  $xrp = ')' ; }
  156.     \n<@item:><\<>><GLEFT ~$xlleft~><GFIRST -~$xlfirst~>~$xlp~~$xlitem~~$xrp~ 
  157. )LI
  158. ~    &End('LI') ;
  159. ~    $xlleft = $xitemsize*&Level('LI')*2 ;
  160. !
  161. ! ----- GROSSARY -----
  162. !
  163. (TERMS
  164. ~    &Begin('TERM') ;
  165. (DT
  166. ~    $xdleft = $xitemsize*&Level('TERM') ;
  167.     \n<@item:><\<>><GLEFT ~$xdleft~>~$xdt~ 
  168. (DD
  169. ~    $xdleft = $xitemsize*&Level('TERM')*4 ;
  170.     \n<@item:><\<>><GLEFT ~$xdleft~>
  171. )TERMS
  172. ~    &End('TERM') ;
  173. ~    $xdleft = $xitemsize*&Level('TERM') ;
  174. !
  175. ! ----- ADDRESS -----
  176. !
  177. (L
  178. ~    $xaleft = $xitemsize*3 ;
  179.     \n<@item:><\<>><GLEFT ~$xaleft~>
  180. !
  181. ! ----- COMMENT -----
  182. !
  183. C
  184.     \n<# Designed by KISI (c)1996 #>
  185.